home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / dev / e / yaec.lha / examples / alibtest.e < prev    next >
Text File  |  2001-08-12  |  186b  |  10 lines
  1.  
  2. /* example of using an amigalib function */
  3.  
  4. MODULE 'amigalib'
  5.  
  6. PROC main()
  7.    DEF a, seed=$F0987601
  8.    FOR a := 0 TO 100 DO WriteF('random val = \d\n', seed := FastRand(seed))
  9. ENDPROC
  10.